Developer CD Series 1994 November: Tool Chest/Dev.CD Nov 94.toast/Sample Code/Newton Sample Code 1.2/Routing/AutoRoute-1/AutoRoute.text

Text File | 1994-07-08 | 20.3 KB | 749 lines | [TEXT/MPS ]

// Copyright 1994 Apple Computer, Inc. All rights reserved.
// by J. Christopher Bell, Newton DTS

DefConst ('kAppSymbol,        '|AutoRoute:PIEDTS|);
DefConst ('kPrintFormat,      '|borderFormat:AutoRoute:PIEDTS|);
DefConst ('kOtherPrintFormat, '|otherPrintFormat:AutoRoute:PIEDTS|);


// run at application install time
// setup stuff the app may need before it is ever opened
InstallScript := func(partFrame)
begin
   local myApp := partFrame.theForm ;

   // put my routing frame in the global routing frame
   routing.(kAppSymbol) := myApp.myRoutingFrame ;

   // put my format in the root so it can be found
   GetRoot().(kPrintFormat) := BuildContext(myApp.myPrintFormat);
   // put my other format in the root so it can be found
   GetRoot().(kOtherPrintFormat) := BuildContext(myApp.otherPrintFormat);
end;


// run when application and/or card with app removed
// cleanup routing stuff
RemoveScript := func(packageFrame)
begin
   // get rid of entry in global routing frame
   RemoveSlot(routing, kAppSymbol);

   // remove my print format
   RemoveSlot(GetRoot(), kPrintFormat);

   // remove my print format
   RemoveSlot(GetRoot(), kOtherPrintFormat);
end;


// ---- End Project Data ----

// ---- Beginning of Print templates ----

// ---- File myPrintFormat ----

// Before Script for "printFormat_myPrintFormat"
// Copyright 1994 Apple Computer, Inc. All rights reserved.

printFormat_myPrintFormat :=
   {
    printNextPageScript:
      func()
      begin
          // only print one page
          // returning nil means there are no other pages
          nil;
      end,
    _proto: protoPrintFormat,
    debug: "printFormat_myPrintFormat"
   };

_view000 := /* child of printFormat_myPrintFormat */
   {viewFlags: 33,
    viewFormat: 593,
    viewBounds: {left: 0, top: 0, right: 0, bottom: 0},
    viewSetupFormScript:
      func()
      begin
         self.viewBounds := :Parent():LocalBox() ;
         self.viewBounds.left := self.viewBounds.left + 2 ;
         self.viewBounds.right := self.viewBounds.right - 2 ;
         self.viewBounds.top := self.viewBounds.top + 2 ;
         self.viewBounds.bottom := self.viewBounds.bottom - 2 ;
      end,
    viewclass: 74
   };

_view001 := /* child of _view000 */
   {text: "AutoRoute!......Custom text sent from a Newton far far away...",
    viewBounds: {top: 30, left: 2, right: -2, bottom: 50},
    viewJustify: 50,
    _proto: protoStaticText
   };



_view002 := /* child of _view000 */
   {text: "Static Text",
    viewBounds: {top: 300, left: 2, right: -2, bottom: 350},
    viewSetupFormScript:
      func()
      begin
          // Change our appearance based on the routing data
          SetValue(self, 'text, fields.body.text);
      end,
    viewJustify: 50,
    viewFormat: 336,
    _proto: protoStaticText
   };






// ---- File otherPrintFormat ----

// Before Script for "printFormat_otherPrintFormat"
// Copyright 1994 Apple Computer, Inc. All rights reserved.

printFormat_otherPrintFormat :=
   {
    printNextPageScript:
      func()
      begin
          // only print one page
          nil;
      end,
    _proto: protoPrintFormat,
    debug: "printFormat_otherPrintFormat"
   };

_view003 := /* child of printFormat_otherPrintFormat */
   {viewFlags: 33,
    viewFormat: 593,
    viewBounds: {left: 0, top: 0, right: 0, bottom: 0},
    viewSetupFormScript:
      func()
      begin
         self.viewBounds := :Parent():LocalBox() ;
         self.viewBounds.left := self.viewBounds.left + 2 ;
         self.viewBounds.right := self.viewBounds.right - 2 ;
         self.viewBounds.top := self.viewBounds.top + 2 ;
         self.viewBounds.bottom := self.viewBounds.bottom - 2 ;
      end,
    viewclass: 74
   };

_view004 := /* child of _view003 */
   {
    text:
      "This was done using the other printformat!\nAutoRoute!......Custom text sent from a Newton far far away..."
    ,
    viewBounds: {top: 30, left: 2, right: -2, bottom: 50},
    viewJustify: 50,
    _proto: protoStaticText
   };



_view005 := /* child of _view003 */
   {text: "Static Text",
    viewBounds: {top: 300, left: 2, right: -2, bottom: 350},
    viewSetupFormScript:
      func()
      begin
          // Change our appearance based on the routing data
          SetValue(self, 'text, fields.body.text);
      end,
    viewJustify: 50,
    viewFormat: 336,
    _proto: protoStaticText
   };






// ---- End of Print templates ----

// ---- File AutoRoute.t ----

// Before Script for "myapp"
// Copyright 1994 Apple Computer, Inc. All rights reserved.

myapp :=
   {
    PutAway:
      func(item)
      begin
          // This is the place where you could get wild and move the information
          // into soups, other apps, and otherwise extract the information.

          // Note that when you use the auto-email function to send mail, you
          // must have "self" have a slot called appSymbol so that the mail function
          // can insert your appsymbol in the outbox item. When the Newton receives
          // an item which it wants to 'put away', it uses that symbol to actually
          // know which application to send the item.

         print("Received the following item:");
          print(item);

          if not GetView(self) then
              self:Open();

          SetValue(para, 'text, item.body.text);
      end,
    myCustomText: nil,
    myRoutingFrame:
      {
         // very simple routing frame, just doing printing
         // and faxing

         // here is the printing stuff, simple yes?
         print: {
            title: "Print Thing",
            routeForm: 'printSlip,
            formats: [kPrintFormat, kOtherPrintFormat]},

         // and here is the fax stuff
         fax: {
            title: "Fax",
            routeForm: 'faxSlip,
            formats: [kPrintFormat, kOtherPrintFormat]},

         mail: {
            title: "Mail",
            routeForm: 'mailSlip,
            formats: [kPrintFormat, kOtherPrintFormat]},

         zap: {
            title: "Beam",
            routeForm: 'zapSlip},
          },
    viewFormat: 83951953,
    target: "UNUSED TARGET!",
    hideIOBox: nil,
    AutoFax:
      func(sendNow, hideIOBox)
      begin
          local myItem, subject;

          // Do our private setup of 'fields' information. This includes
          // the phone number to use and the data to send.
          :SetupMyData();

          subject := EnsureInternal("AutoRoute  AutoFax: ") && DateNTime(time());

          myItem := {connect: sendNow, hidden: hideIOBox, appSymbol: appSymbol,
                       phonenumber: myCustomFrame.toPhone, tophone: "Number to display",
                       title: subject, body: myCustomFrame.myData,
                       name: myCustomFrame.name, printerformat: currentPrintFormat};


          call kSendFunc with ('fax, myItem);
      end,
    myTextScript:
      func(fields, target)
      begin
         // fields.data ;        // returns the text that will be put into a mail message

          EnsureInternal("This is my text returned by the TextScript!");
      end,
    viewBounds: {left: -1, top: 3, right: 233, bottom: 326},
    otherPrintFormat:
      {
             // The print format for this application.
              // An application can have more than one format if it wants.

             // title that shows up in the Format picker
             // in the print or fax slip
         title: "Other Format",

             // this could be a symbol for an auxilliary
             // information slip. See the auxForm sample code
         auxForm: nil,

                // symbol for a script that is called by
             // mail for a text only message to send
         textScript: 'myTextScript,

             // true if the user can attach a real frame to the mail
         attachment: true,

             // The proto must be set to this for all printing and faxing behavior
              // Note that the actual "cover page" for faxes is controlled by a slot
              // within the routing 'fields' frame.
         _proto: ROM_coverPageFormat,

             // the main format used for each page of a print or fax output.
              // Note that printFormat_myPrintFormat is what NTK will call our
              // printFormat which has the name myPrintFormat.
         mainFormat: printFormat_otherPrintFormat,
      },
    SetTemporaryPrinterChoice:
      func(theChoice)
      begin
          currentPrinterSetting := theChoice;
      end,
    myPrintFormat:
      {
             // The print format for this application.
              // An application can ave more than one format if it wants.

             // title that shows up in the Format picker
             // in the print or fax slip
         title: "AutoRoute Format",

             // this could be a symbol for an auxilliary
             // information slip. See the auxForm sample code
         auxForm: nil,

                // symbol for a script that is called by
             // mail for a text only message to send
         textScript: 'myTextScript,

             // true if the user can attach a real frame to the mail
         attachment: true,

             // The proto must be set to this for all printing and faxing behavior
              // Note that the actual "cover page" for faxes is controlled by a slot
              // within the routing 'fields' frame.
         _proto: ROM_coverPageFormat,

             // the main format used for each page of a print or fax output.
              // Note that printFormat_myPrintFormat is what NTK will call our
              // printFormat which has the name myPrintFormat.
         mainFormat: printFormat_myPrintFormat,
      },
    _proto: protoApp,
    myCustomFrame: nil,
    appSymbol: kAppSymbol,
    title: "AutoRoute",
    AutoBeam:
      func(sendNow, hideIOBox)
      begin
          local myItem, subject;

          subject := EnsureInternal("AutoRoute  AutoBeam: ") && DateNTime(time());

          // Do our private setup of 'fields' information. This includes
          // the phone number to use and the data to send.
          :SetupMyData();

          myItem := {connect: sendNow, hidden: hideIOBox, body: myCustomFrame.myData,
                       appSymbol: appSymbol, title: subject };


          call kSendFunc with ('beam, myItem);
      end,
    SetupMyData:
      func()
      begin
          constant kMyVersionNum := 1;

          myCustomText := para.text;

          // since a paragraphView could have 'nil' as its text slot...
          if not myCustomText then myCustomText := "<empty text>";

          local faxNum := getroot():MungePhone(userconfiguration.faxPhone, userconfiguration.country);



          // usually, most of these slots will represent the OTHER person's information but we fill
          // these slots with your own information so that you probably do not have to change any code
          // to fax or email using this sample.
          myCustomFrame := TotalClone({toPhone: faxNum,
                                  email: userconfiguration.mailAccount, name: "Destination Name/Company",
                                  myData: {text: myCustomText, timeStamp: time(), myAppVersion: kMyVersionNum} });
      end,
    currentPrinterSetting: nil,
    viewSetupFormScript:
      func()
      begin
          local b := GetAppParams();
          constant kMaxWidth := 240;
          constant kMaxHeight := 336;

          viewBounds := RelBounds(b.appAreaLeft, b.appAreaTop,
                  Min(b.appAreaWidth, kMaxWidth),
                  Min(b.appAreaHeight, kMaxHeight) );


          currentPrinterSetting := call kGetUserConfigFunc with ('currentPrinter);
          currentPrintFormat := kPrintFormat ;
      end,
    AutoPrint:
      func(sendNow, hideIOBox)
      begin
          local myItem, subject;

          :SetupMyData();

          subject := EnsureInternal("AutoRoute  AutoPrint: ") && DateNTime(time());

          myItem := {connect: sendNow, hidden: hideIOBox, appSymbol: appSymbol,
                     body: myCustomFrame.myData, title: subject,
                     printerformat: currentPrintFormat, printer: currentPrinterSetting};


          call kSendFunc with ('print, myItem);
      end,
    currentPrintFormat: nil,
    debug: "myapp",
    AutoEmail:
      func(sendNow, hideIOBox)
      begin
          local  subject, myItem;

          // Do our setup of our custom data for our application
          :SetupMyData();

          subject := EnsureInternal("AutoEmail: " & DateNTime(time()));

          myItem := {connect: sendNow, hidden: hideIOBox, email: myCustomFrame.email,
                       title: subject, text: myCustomFrame.myData.text,
                       appSymbol: appSymbol, body: myCustomFrame.myData};


          call kSendFunc with ('mail, myItem);
      end,
    GetTemporaryPrinterChoice:
      func()
      begin
          currentPrinterSetting;
      end,
    sendNow: nil
   };

fax := /* child of myapp */
   {text: "Auto-Fax",
    buttonClickScript:
      func()
      begin
          :AutoFax(sendNow, hideIOBox);
      end,
    viewBounds: {left: 0, top: 78, right: 150, bottom: 98},
    viewJustify: 8388630,
    _proto: protoTextButton,
    debug: "fax"
   };



print := /* child of myapp */
   {text: "Auto-Print",
    buttonClickScript:
      func()
      begin
          :AutoPrint(sendNow, hideIOBox);
      end,
    viewBounds: {left: 0, top: 108, right: 150, bottom: 128},
    viewJustify: 8388630,
    _proto: protoTextButton,
    debug: "print"
   };



email := /* child of myapp */
   {text: "Auto-Email",
    buttonClickScript:
      func()
      begin
          :AutoEmail(sendNow, hideIOBox);
      end,
    viewBounds: {left: 0, top: 138, right: 150, bottom: 158},
    viewJustify: 8388630,
    _proto: protoTextButton,
    debug: "email"
   };



beam := /* child of myapp */
   {text: "Auto-Beam",
    buttonClickScript:
      func()
      begin
          :AutoBeam(sendNow, hideIOBox);
      end,
    viewBounds: {left: 0, top: 168, right: 150, bottom: 188},
    viewJustify: 8388630,
    _proto: protoTextButton,
    debug: "beam"
   };



para := /* child of myapp */
   {viewFlags: 7681,
    viewFormat: 12625,
    viewlinespacing: 20,
    viewFont: 18434,
    viewBounds: {left: 14, top: 15, right: -6, bottom: 70},
    viewJustify: 48,
    viewclass: 81,
    debug: "para"
   };
// View para is declared to myapp



send now? := /* child of myapp */
   {text: "Send/connect now",
    viewBounds: {left: -32, top: 195, right: 69, bottom: 214},
    valueChanged:
      func()
      begin
          sendNow := viewValue;
      end,
    buttonValue: true,
    viewJustify: 8388628,
    viewValue: true,
    viewSetupDoneScript:
      func()
      begin
          :valueChanged();
          inherited:?viewSetupDoneScript();
      end,
    _proto: protoCheckbox,
    debug: "send now?"
   };



hide iobox? := /* child of myapp */
   {text: "Hide outbox",
    viewBounds: {left: -32, top: 214, right: 69, bottom: 232},
    valueChanged:
      func()
      begin
          hideIOBox := viewValue;
      end,
    buttonValue: true,
    viewJustify: 8388628,
    viewValue: nil,
    viewSetupDoneScript:
      func()
      begin
          :valueChanged();
          inherited:?viewSetupDoneScript();
      end,
    _proto: protoCheckbox,
    debug: "hide iobox?"
   };



_view006 := /* child of myapp */
   {text: " ",
    viewBounds: {left: 139, top: 197, right: 207, bottom: 213},
    viewJustify: 8388610,
    possibleStrings: ["(i/o is busy)", "(idle)"],
    viewIdleScript:
      func()
      begin

          local index := (if iobusy then 0 else 1);      // check the global iobusy variable

          SetValue(self, 'text, possibleStrings[index]);

          // This should return the number of milliseconds to delay. NIL if no more idling.
          1000;   // Check only once a second.
          // If you check too often, you will run down the battery
      end,
    viewSetupDoneScript:
      func()
      begin
      :SetupIdle(1);   // after only 1 millisecond, start display
      end,
    _proto: protoStaticText
   };



toPrinter := /* child of myapp */
   {text: " ",
    viewBounds: {left: 87, top: 250, right: 234, bottom: 270},
    viewSetupDoneScript:
      func()
      begin
          :SetupIdle(1);   // after only 1 millisecond, start display
      end,
    viewJustify: 8388610,
    viewIdleScript:
      func()
      begin
          local name := call kGetPrinterNameFunc with (currentPrinterSetting);

          SetValue(self, 'text, name);

          // This should return the number of milliseconds to delay. NIL if no more idling.
          1000;   // Check only once a second.
          // If you check too often, you will run down the battery
      end,
    _proto: protoStaticText,
    debug: "toPrinter"
   };
// View toPrinter is declared to myapp



currentPrinter := /* child of myapp */
   {text: " ",
    viewBounds: {left: 19, top: 291, right: 225, bottom: 307},
    viewSetupDoneScript:
      func()
      begin
          :SetupIdle(1);   // after only 1 millisecond, start display
      end,
    viewJustify: 8388610,
    viewIdleScript:
      func()
      begin

          local printerFrame :=  call kGetUserConfigFunc with ('currentPrinter);
          local name := call kGetPrinterNameFunc with (printerFrame);

          SetValue(self, 'text, "(default:" & name & ")");

          // This should return the number of milliseconds to delay. NIL if no more idling.
          1000;   // Check only once a second.
          // If you check too often, you will run down the battery
      end,
    _proto: protoStaticText,
    debug: "currentPrinter"
   };
// View currentPrinter is declared to myapp



_view007 := /* child of myapp */
   {text: "ChangePrinter",
    buttonClickScript:
      func()
      begin
          printchooser:Open();
      end,
    viewBounds: {top: 252, left: 2, right: 82, bottom: 269},
    _proto: protoTextButton
   };



// ---- File myChooser ----

// Before Script for "printchooser"
// Copyright 1994 Apple Computer, Inc. All rights reserved.

printchooser := /* child of myapp */
   {viewFlags: 512,
    viewBounds: {left: 10, top: -27, right: -10, bottom: 39},
    viewJustify: 112,
    declareSelf: 'base,
    viewFormat: 50398705,
    viewclass: 74,
    debug: "printchooser"
   };
// View printchooser is declared to myapp

_view008 := /* child of printchooser */ {_proto: protoClosebox};



_view009 := /* child of printchooser */
   {viewBounds: {left: 8, top: 14, right: 208, bottom: 46},
    viewSetupFormScript:
      func()
      begin
          local toDisplay;

          //breakloop();
          if GetTemporaryPrinterChoice exists then
         begin
             // if usedCustomChoice is true, this chooser will
             // not permanently change userconfiguration.currentPrinter
             usedCustomChoice := true;
             originalPrinter := call kGetUserConfigFunc with ('currentPrinter);

             toDisplay := :GetTemporaryPrinterChoice();
             call kSetUserConfigFunc with ('currentPrinter, toDisplay);
         end;
          else
             usedCustomChoice := nil;

          inherited:?viewSetupFormScript();
      end,
    usedCustomChoice: nil,
    viewQuitScript:
      func()
      begin
          local theChoice;

          if usedCustomChoice then
         begin
              // assume we need to let someone know what choice was made

             theChoice := call kGetUserConfigFunc with ('currentPrinter);
             :SetTemporaryPrinterChoice(theChoice);

              // restore the current printer to the original choice
             call kSetUserConfigFunc with ('currentPrinter, originalPrinter);
         end;

           // make sure any changes to the user configuration are saved!
          call kFlushUserConfigFunc with ();

          inherited:?viewQuitScript();
      end,
    originalPrinter: nil,
    _proto: protoLabelPicker
   };

// After Script for "_view009"
thisView := _view009;
// Turn this into a real printer chooser button from the ROM
thisView._proto := ROM_printerchooserbutton ;




// ---- Back in File AutoRoute.t ----

alternate format := /* child of myapp */
   {text: "Use Other Print Format",
    viewBounds: {left: -20, top: 232, right: 106, bottom: 250},
    valueChanged:
      func()
      begin
          if viewValue then
              currentPrintFormat := kOtherPrintFormat ;
          else
              currentPrintFormat := kPrintFormat ;
      end,
    buttonValue: true,
    viewJustify: 8388628,
    viewValue: nil,
    viewSetupDoneScript:
      func()
      begin
          :valueChanged();
          inherited:?viewSetupDoneScript();
      end,
    _proto: protoCheckbox,
    debug: "alternate format"
   };







// ---- Beginning of section for non used Layout files ----

// End of output